home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD008a.dsk / ONE.LINER.MENU.bas < prev    next >
BASIC Source File  |  2003-06-12  |  1KB  |  21 lines
  1. 1  REM  ONE.LINER.MENU
  2. 2  TEXT : HOME : SPEED= 255
  3. 3  GOTO 100
  4. 10  REM   BY MIKE ALPERT OF ROSLYN HTS, N.Y.
  5. 15  DATA 1,1,6,0,12,0,33,63,54,45,4,0: FOR A = 768 TO 779: READ B: POKE A,B: NEXT : FOR J = 0 TO 1  STEP 0: POKE 232,0: POKE 233,3: HGR2 : HCOLOR= 3: HPLOT 0,0: CALL 62454:C =  INT( RND(1) *8): HCOLOR= C -(C = 3  OR C = 7): FOR A = 1 TO 99  STEP  INT( RND(1) *4) +1: SCALE= A: ROT= A: DRAW 1 AT 139,95: NEXT : NEXT 
  6. 20  REM  BY DAVID KIRBY OF SAN MATEO, CA
  7. 25  HOME : FOR Y = 0 TO 1  STEP 0: FOR X = 5 TO 48  STEP .25: PRINT  TAB(  INT(12 +11 * SIN(X)));"SOFTDISK MAGZETTE": NEXT : NEXT 
  8. 100  POKE 54,189: POKE 55,158: CALL 1002
  9. 200  POKE 1010,102: POKE 1011,213: POKE 1012,112
  10. 210  HOME 
  11. 220  HTAB 14: INVERSE : PRINT "ONE LINERS": NORMAL 
  12. 225  VTAB 22: HTAB 4: INVERSE : PRINT " EXIT ONE LINERS BY HITTING RESET ": NORMAL 
  13. 230  VTAB 10: HTAB 7: PRINT "1 = MIKE ALPERT OF ROSLYN HTS, NY"
  14. 240  VTAB 12: HTAB 7: PRINT "2 = DAVID KIRBY OF SAN MATEO, CA"
  15. 250  VTAB 14: HTAB 7: PRINT "3 = ENOUGH OF THIS"
  16. 260  VTAB 16: PRINT "WHICH ";: GET R$: PRINT  CHR$(4)
  17. 270  IF R$ = "1" GOTO 10
  18. 280  IF R$ = "2" GOTO 20
  19. 285  IF R$ < >"3" GOTO 260
  20. 287  POKE 1010,191: POKE 1011,157: POKE 1012,56
  21. 290  PRINT  CHR$(13); CHR$(4);"RUN KICK.IT.OFF"